home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 July / 64er_Magazin_93-07_1993_Markt__Technik_de_Side_A.d64 / space pirates (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  780b  |  21 lines
  1. 0 b=1504:c=20:ti$="000000":poke650,0:x=0:y=15:ft=198
  2. 1 data60,52,223,215,219,231,105,105,2,8,56,231,223,247,215,60,105,85,255,215,235
  3. 2 data235,20,60:fori=0to23:reada:poke8704+i,a:next:poke56334,peek(56334)and254
  4. 3 poke1,peek(1)and251:fort=0to511:poke8192+t,peek(53248+t):next:poke1,peek(1)or4
  5. 4 poke56334,peek(56334)or1:poke53272,24:k=53280:poke646,14:pokek,.:pokek+1,.
  6. 5 pokek+2,14:pokek+3,7 :poke53270,152:data0,0,16,0,12,0,0,0:fori=0to7:reada
  7. 6 poke8448+i,a:next
  8. 7 fori=0to48:print:next
  9. 8 a=rnd(1)*40:poke1984+a,65:ifrnd(1)>.7thenpoke1984+a,64:r$=chr$(13)
  10. 9 j=peek(56320)
  11. 10 if(jand4)=0andc<39thenpokeb+c,32:c=c+1
  12. 11 if(jand8)=0andc>0thenpokeb+c,32:c=c-1
  13. 12 pokeb+c,32:print
  14. 13 ifpeek(b+c)=65then16
  15. 14 ifpeek(b+c)=64thengosub17
  16. 15 pokeb+c,66:goto8
  17. 16 gosub19:print"[147]game over!"r$"time:"ti$;r$"score:"s;r$"hit a key!":gosub18:run
  18. 17 fori=0to16:pokek,i:next:s=s+10:return
  19. 18 pokeft,0:waitft,1:return
  20. 19 fori=0to7:poke8448+i,.:next:return:rem space pirates fuer m&t von vincent m.
  21.